body{
    font-family: "Times New Roman";
    background-color: #d7e6fc;
}

pre {
    padding: 5px;
    border-style: groove;
    border-color: blue;
    background-color: #d7d9fc;

}

Project requirements

Regarding meeting the requirements related to working with GitHub, I have created the appropriate GitHub repo, named stats220, which includes the use of two different levels of headers and two different types of bullet points (ordered and unordered) to show the complete status of the current project, use of bold and italics to highlight important information, and a link to another website. Using this, I have created a clean and sleek, appropriate aesthetic design by keeping information minimal and only displaying the appropriate information through the use of the README.md file.

The link to the Github repo can be found here!

My meme

The key components of my inspo meme is the use of images to show reaction to one thing to another, a simple happy face and sad face based on text. I recreated this meme but with different images and different text indicated a different situation.

library(magick)
monday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Monday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

tuesday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Tuesday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

wednesday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Wednesday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

thursday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Thursday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

friday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Friday",
                 font = "Roboto",
                 size = 50,
                 color= "white", 
                 gravity = "center")

saturday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Saturday",
                 font = "Roboto",
                 size = 50,
                 color= "white", 
                 gravity = "center")

sunday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Sunday",
                 font = "Roboto",
                 size = 50,
                 color= "white", 
                 gravity = "center")

sad_cat <- image_read("https://pbs.twimg.com/profile_images/1155645244563742721/tuCu6BT-_400x400.jpg") %>%
  image_scale(500) # Image of a sad cat

happy_cat <- image_read("https://www.catlitter.net.au/wp-content/uploads/2017/05/main-front-page.png?x51586") %>%
  image_scale("500x500!") # Image of a happy cat

depressed_cat <- image_read("https://img.freepik.com/premium-photo/depressed-cat-looking-out-window-stormy-day-generative-ai_796128-3377.jpg") %>%
  image_scale("500x500!") # Image of a depressed cat

monday_row <- c(sad_cat, monday_text) %>%
  image_append()

tuesday_row <- c(sad_cat, tuesday_text) %>%
  image_append()

wednesday_row <- c(sad_cat, wednesday_text) %>%
  image_append()

thursday_row <- c(sad_cat, thursday_text) %>%
  image_append()

friday_row <- c(happy_cat, friday_text) %>%
  image_append()

saturday_row <- c(happy_cat, saturday_text) %>%
  image_append()

sunday_row <- c(depressed_cat, sunday_text) %>%
  image_append()

c(monday_row, tuesday_row, wednesday_row, thursday_row, friday_row, saturday_row, sunday_row) %>%  # creates a vector of all the images + text
  image_append(stack = TRUE) # stacks the image and text on top of each other using the using the stack argument.

library(magick)

monday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Monday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

tuesday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Tuesday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

wednesday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Wednesday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

thursday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Thursday",
                 font = "Roboto",
                 size = 50,
                 color= "white",
                 gravity = "center")

friday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Friday",
                 font = "Roboto",
                 size = 50,
                 color= "white", 
                 gravity = "center")

saturday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Saturday",
                 font = "Roboto",
                 size = 50,
                 color= "white", 
                 gravity = "center")

sunday_text <- image_blank(500, 500, color = "#000") %>%
  image_annotate(text = "Sunday",
                 font = "Roboto",
                 size = 50,
                 color= "white", 
                 gravity = "center")

sad_cat <- image_read("https://pbs.twimg.com/profile_images/1155645244563742721/tuCu6BT-_400x400.jpg") %>%
  image_scale(500) 

happy_cat <- image_read("https://www.catlitter.net.au/wp-content/uploads/2017/05/main-front-page.png?x51586") %>%
  image_scale("500x500!")

depressed_cat <- image_read("https://img.freepik.com/premium-photo/depressed-cat-looking-out-window-stormy-day-generative-ai_796128-3377.jpg") %>%
  image_scale("500x500!") 

monday_row <- c(sad_cat, monday_text) %>%
  image_append()

tuesday_row <- c(sad_cat, tuesday_text) %>%
  image_append()

wednesday_row <- c(sad_cat, wednesday_text) %>%
  
  image_append()

thursday_row <- c(sad_cat, thursday_text) %>%
  image_append()

friday_row <- c(happy_cat, friday_text) %>%
  image_append()

saturday_row <- c(happy_cat, saturday_text) %>%
  image_append()

sunday_row <- c(depressed_cat, sunday_text) %>%
  image_append()

cat_meme <- c(monday_row, tuesday_row, wednesday_row, thursday_row, friday_row, saturday_row, sunday_row) %>% # creates a vector of all the images + text
  image_append(stack = TRUE) # stacks the image and text on top of each other using the using the stack argument.
  

image_write(cat_meme, "my_meme.png") # saves my cat_meme as a png in the same directory

frames <- c(monday_row, tuesday_row, wednesday_row, thursday_row, friday_row, saturday_row, sunday_row) # renaming my cat_meme as a the frames since i will be using this to create the gif/animation.

image_animate(frames, fps= 1)

image_write(animation, "my_animation.gif")

Creativity

For the purpose of demonstrating creativity i have used more frames for animation then required, additial images and text then required and used more css than what was require, for example In my website i have included the use of colors and borders around the certain section that are also colored giving contrast with the background.

Learning reflection

One important learning idea i learnt from module 1 is the idea that to create something, like this website, it has many intricate parts to it, from creating the meme in Rstudio, using the magick library to animating the same meme in Rstudio once again to then coding the actual website content using CSS. This shows how this is not just one part but rather a collection of parts to form one thing, i.e the website.

The things, relating to data technologies, that i am more curious about is learning further CSS, since this is used a substantial amount when creating website designs, R-markdown and more about using Github repos.